Imports Microsoft.VisualBasic

Public Class util

    Public Function isDate(ByVal valor As String) As Boolean
        Try
            Dim dtaValor As DateTime = Convert.ToDateTime(valor)

        Catch ex As Exception
            Return False
        End Try
        Return True
    End Function



End Class
